home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test18.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  217 b   |  16 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :- long_deref.
  5.  
  6. long_deref :-
  7.     X = [X1,X2,X3,X4,X5,X6,X7,X8],
  8.     X8 = X7,
  9.     X8 = X6,
  10.     X8 = X5,
  11.     X8 = X4,
  12.     X8 = X3,
  13.     X8 = X2,
  14.     X8 = X1.
  15.  
  16.